-- card: 16011 from stack: in
-- bmap block id: 16243
-- flags: 4000
-- background id: 29744
-- name: Sort OrderΙ
----- HyperTalk script -----
on openCard
  global buttonNumber
  put char 1 to 3 of the long date & "," & item 2 to 3 of the abbrev date into background field date
  set hilite of background button buttonNumber to false
end openCard

on closeCard
  global buttonNumber
  set hilite of background button buttonNumber to true
  set the loc of card button "Class Name" to 199,105
  set the loc of card button "Class Number" to 313,123
  set the loc of card button "Grade" to 313,141
  set the loc of card button "Sequence Number" to 313,159
  set the loc of card button "Teacher Name" to 313,177
end closeCard


-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=343 bottom=513
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 2 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=147 top=208 right=226 bottom=205
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseUp
  lock screen
  put empty into sortBy
  repeat with index = 5 to 9
    if item 1 of the loc of card button id index < 256 then
      put "St" & index after sortBy
    end if
  end repeat
  go to card sortBy of this background
  if the result is "No such card" then
    pop card
  else pop card into it
  unlock screen
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=227 top=208 right=226 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clear
----- HyperTalk script -----
on mouseUp
  lock screen
  set the loc of card button "Class Name" to 313,105
  set the loc of card button "Class Number" to 313,123
  set the loc of card button "Grade" to 313,141
  set the loc of card button "Sequence Number" to 313,159
  set the loc of card button "Teacher Name" to 313,177
  unlock screen
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=307 top=208 right=226 bottom=365
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel
----- HyperTalk script -----
on mouseUp
  lock screen
  pop card
  unlock screen
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=149 top=97 right=113 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Class Name
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    get the mouseLoc
    if it is within "196,102,316,180" then set the loc of me to it
  end repeat
end mouseDown

on mouseUp
  if item 1 of the loc of me > 256 then
    set the loc of me to 313,105
  else
    put empty into buttonCount
    repeat with index = 5 to 9
      if item 1 of the loc of card button id index < 256 then
        add 1 to buttonCount
      end if
    end repeat
    set the loc of me to 199,((buttonCount * 18) + 87)
  end if
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=263 top=115 right=131 bottom=363
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Class Number
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    get the mouseLoc
    if it is within "196,102,316,180" then set the loc of me to it
  end repeat
end mouseDown

on mouseUp
  if item 1 of the loc of me > 256 then
    set the loc of me to 313,123
  else
    put empty into buttonCount
    repeat with index = 5 to 9
      if item 1 of the loc of card button id index < 256 then
        add 1 to buttonCount
      end if
    end repeat
    set the loc of me to 199,((buttonCount * 18) + 87)
  end if
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=263 top=133 right=149 bottom=363
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Grade
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    get the mouseLoc
    if it is within "196,102,316,180" then set the loc of me to it
  end repeat
end mouseDown

on mouseUp
  if item 1 of the loc of me > 256 then
    set the loc of me to 313,141
  else
    put empty into buttonCount
    repeat with index = 5 to 9
      if item 1 of the loc of card button id index < 256 then
        add 1 to buttonCount
      end if
    end repeat
    set the loc of me to 199,((buttonCount * 18) + 87)
  end if
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=263 top=151 right=167 bottom=363
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Sequence Number
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    get the mouseLoc
    if it is within "196,102,316,180" then set the loc of me to it
  end repeat
end mouseDown

on mouseUp
  if item 1 of the loc of me > 256 then
    set the loc of me to 313,159
  else
    put empty into buttonCount
    repeat with index = 5 to 9
      if item 1 of the loc of card button id index < 256 then
        add 1 to buttonCount
      end if
    end repeat
    set the loc of me to 199,((buttonCount * 18) + 87)
  end if
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=263 top=169 right=185 bottom=363
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Teacher Name
----- HyperTalk script -----
on mouseDown
  repeat while the mouse is down
    get the mouseLoc
    if it is within "196,102,316,180" then set the loc of me to it
  end repeat
end mouseDown

on mouseUp
  if item 1 of the loc of me > 256 then
    set the loc of me to 313,177
  else
    put empty into buttonCount
    repeat with index = 5 to 9
      if item 1 of the loc of card button id index < 256 then
        add 1 to buttonCount
      end if
    end repeat
    set the loc of me to 199,((buttonCount * 18) + 87)
  end if
end mouseUp



-- part contents for background part 1
----- text -----
36 Classes

-- part contents for background part 3
----- text -----
12
11
12
12
11
12
12
11
12
12
11
12

-- part contents for background part 4
----- text -----
Algebra (1)
Algebra (1)
Algebra (2)
Biology (1)
Biology (1)
Biology (2)
Biology (3)
Biology Lab (1)
Bookkeeping (1)
Chemistry (1)
Chemistry (1)
Chemistry (2)

-- part contents for background part 5
----- text -----
Arness, James
Arness, James
Arness, James
Cavein, Tich
Nasmyth, Patricia
Nasmyth, Patricia
Cavein, Tich
Nasmyth, Patricia
Doctor, Heinrich
Dean, Bob
Dean, Bob
Woo, Fleming Pita Spooler

-- part contents for background part 6
----- text -----
√
√
√
√
√
√
√
√
√
√
√
√

-- part contents for background part 2
----- text -----
Mon, Aug 28, 1989

-- part contents for background part 31
----- text -----
1